home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
023
/
ver30
/
gnusymbol.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-17
|
18KB
|
550 lines
/*
* Name: MicroEMACS
* Symbol table stuff for GNU emacs compatability
* Version: 29
* Last edit: 19-Apr-86
* By: {sun, amdahl, cbosgd}!rtech!gonzo!daveb
*
* Symbol tables, and keymap setup.
* The terminal specific parts of building the
* keymap has been moved to a better place.
*
* This version matches the standard GNU Emacs 17.49 bindings.
* With this file, MicroEMACS is a proper subset of GNU.
*
* If a GNU feature was misnamed, it was moved.
* If a GNU feature was "nearly" right, it was noted for later work.
* If a MicroEMACS feature was incompatible, it was dropped.
*
* Compatibility NOW for the future!
*/
#include "def.h"
#define DIRLIST 0 /* Disarmed! */
# define DEL 0x7f
# define ESC 0x1b
/* # define DAVEB *//* Dave Brower specials, not GNU compatibility */
/*
* Defined by "main.c".
*/
extern int ctrlg(); /* Abort out of things */
extern int quit(); /* Rude Quit */
extern int ctlxlp(); /* Begin macro */
extern int ctlxrp(); /* End macro */
extern int ctlxe(); /* Execute macro */
extern int showversion(); /* Show version numbers, etc. */
/*
* defined by "gnucmds.c"
*/
extern int savebuffs(); /* GNU style save-some-buffers */
extern int savequit(); /* GNU save-buffers-kill-emacs */
extern int suspend(); /* GNU style suspend */
extern int notmodified(); /* GNU make buffer undirty */
extern int scrollother(); /* GNU scroll other window */
/*
* Defined by "search.c".
*/
extern int forwsearch(); /* Search forward */
extern int backsearch(); /* Search backwards */
extern int searchagain(); /* Repeat last search command */
extern int forwisearch(); /* Incremental search forward */
extern int backisearch(); /* Incremental search backwards */
extern int queryrepl(); /* Query replace */
/*
* Defined by "basic.c".
*/
extern int gotobol(); /* Move to start of line */
extern int backchar(); /* Move backward by characters */
extern int gotoeol(); /* Move to end of line */
extern int forwchar(); /* Move forward by characters */
extern int gotobob(); /* Move to start of buffer */
extern int gotoeob(); /* Move to end of buffer */
extern int forwline(); /* Move forward by lines */
extern int backline(); /* Move backward by lines */
extern int forwpage(); /* Move forward by pages */
extern int backpage(); /* Move backward by pages */
extern int setmark(); /* Set mark */
extern int swapmark(); /* Swap "." and mark */
extern int gotoline(); /* Go to a specified line. */
/*
* Defined by "buffer.c".
*/
extern int listbuffers(); /* Display list of buffers */
extern int usebuffer(); /* Switch a window to a buffer */
extern int killbuffer(); /* Make a buffer go away. */
#if DIRLIST
/*
* Defined by "dirlist.c".
*/
extern int dirlist(); /* Directory list. */
#endif
/*
* Defined by "file.c".
*/
extern int fileread(); /* Get a file, read only */
extern int filevisit(); /* Get a file, read write */
extern int filewrite(); /* Write a file */
extern int filesave(); /* Save current file */
extern int filename(); /* Adjust file name */
/*
* Defined by "random.c".
*/
extern int selfinsert(); /* Insert character */
extern int showcpos(); /* Show the cursor position */
extern int twiddle(); /* Twiddle characters */
extern int quote(); /* Insert literal */
extern int openline(); /* Open up a blank line */
extern int newline(); /* Insert CR-LF */
extern int deblank(); /* Delete blank lines */
extern int indent(); /* Insert CR-LF, then indent */
extern int forwdel(); /* Forward delete */
extern int backdel(); /* Backward delete */
extern int killline(); /* Kill forward */
extern int yank(); /* Yank back from killbuffer. */
/*
* Defined by "region.c".
*/
extern int killregion(); /* Kill region. */
extern int copyregion(); /* Copy region to kill buffer. */
extern int lowerregion(); /* Lower case region. */
extern int upperregion(); /* Upper case region. */
/*
* Defined by "spawn.c".
*/
extern int spawncli(); /* Run CLI in a subjob. */
/*
* Defined by "window.c".
*/
extern int reposition(); /* Reposition window */
extern int refresh(); /* Refresh the screen */
extern int nextwind(); /* Move to the next window */
extern int prevwind(); /* Move to the previous window */
extern int mvdnwind(); /* Move window down */
extern int mvupwind(); /* Move window up */
extern int onlywind(); /* Make current window only one */
extern int splitwind(); /* Split current window */
extern int enlargewind(); /* Enlarge display window. */
extern int shrinkwind(); /* Shrink window. */
/*
* Defined by "word.c".
*/
extern int backword(); /* Backup by words */
extern int forwword(); /* Advance by words */
extern int upperword(); /* Upper case word. */
extern int lowerword(); /* Lower case word. */
extern int capword(); /* Initial capitalize word. */
extern int delfword(); /* Delete forward word. */
extern int delbword(); /* Delete backward word. */
/*
* Defined by "extend.c".
*/
extern int extend(); /* Extended commands. */
extern int help(); /* Help key. */
extern int bindtokey(); /* Modify key bindings. */
extern int wallchart(); /* Make wall chart. */
typedef struct {
short k_key; /* Key to bind. */
int (*k_funcp)(); /* Function. */
char *k_name; /* Function name string. */
} KEY;
/*
* Default key binding table. This contains
* the function names, the symbol table name, and (possibly)
* a key binding for the builtin functions. There are no
* bindings for C-U or C-X. These are done with special
* code, but should be done normally.
*/
/* GNU standard bindings that are missing are commented out with the
* following notations:
*
* /*B Braindamaged in current implementation.
* /*D Design restructuring is needed.
* /*E Easy, a few hours.
* /*H Hard, (days) but possible if desirable.
* /*I Impossible (weeks), much too hard to do right.
* /*M Moderate difficulty, a day or so.
* /*T On the to do list.
* /*U Undecided.
* /*X Means unnecessary to do.
* /*W Current version is wrong.
*
* Well, braindamaged is a bit too strong, but doing all the argument
* processing in the main loop, and not having meta- ancd ctrl-x
* be bindable commands seems kinda funny to me (daveb).
*/
KEY key[] = {
KCTRL|'@', setmark, "set-mark-command",
KCTRL|'A', gotobol, "beginning-of-line",
KCTRL|'B', backchar, "backward-char",
/*DHX KCTRL|'C', ???, "mode-specific-command-prefix", */
KCTRL|'D', forwdel, "delete-char",
KCTRL|'E', gotoeol, "end-of-line",
KCTRL|'F', forwchar, "forward-char",
KCTRL|'G', ctrlg, "keyboard-quit",
KCTRL|'H', help, "help-command",
/*DHX KCTRL|'I', ???, "indent-for-tab-command", */
KCTRL|'J', indent, "newline-and-indent",
KCTRL|'K', killline, "kill-line",
KCTRL|'L', refresh, "recenter",
/*W actually doesn't recenter... */
KCTRL|'M', newline, "newline",
KCTRL|'N', forwline, "next-line",
KCTRL|'O', openline, "open-line",
KCTRL|'P', backline, "previous-line",
KCTRL|'Q', quote, "quoted-insert",
KCTRL|'R', backisearch, "isearch-backward",
KCTRL|'S', forwisearch, "isearch-forward",
KCTRL|'T', twiddle, "transpose-characters",
/*BMT KCTRL|'U', ???, "universal-argument," */
KCTRL|'V', forwpage, "scroll-up",
KCTRL|'W', killregion, "kill-region",
/*BMT KCTRL|'X', ???, "Control-X-prefix", */
KCTRL|'Y', yank, "yank",
/*WET doesn't set point! */
KCTRL|'Z', suspend, "suspend-emacs",
/*BMT KMETA, ???, "ESC-prefix", */
/*DX KCTRL|']', ???, "abort-recursive-edit", */
/*DIX KCTRL|'_', ???, "undo", */
DEL, backdel, "delete-backward-char",
/*DIX KCTLX|KCTRL|'A',???, "add-mode-abbrev", */
KCTLX|KCTRL|'B',listbuffers, "list-buffers",
KCTLX|KCTRL|'C',savequit, "save-buffers-kill-emacs",
#if DIRLIST
KCTLX|KCTRL|'D',dirlist, "list-directory",
#endif
/*DIX KCTLX|KCTRL|'E',???, "eval-last-sexp", */
KCTLX|KCTRL|'F',filevisit, "find-file",
/*DIX KCTLX|KCTRL|'H',???, "inverse-add-mode=abbrev", */
/*MT KCTLX|KCTRL|'I',???, "indent-rigidly", */
KCTLX|KCTRL|'L',lowerregion, "downcase-region",
/*ET KCTLX|KCTRL|'N', ???, "set-goal-column" */
KCTLX|KCTRL|'O',deblank, "delete-blank-lines",
/*MU KCTLX|KCTRL|'P',???, "mark-page" */
KCTLX|KCTRL|'R',fileread, "file-file-read-only",
/*WU incorrect behaviour... */
KCTLX|KCTRL|'S',filesave, "file-buffer",
/*EU KCTLX|KCTRL|'T',???, "transpose-lines", */
KCTLX|KCTRL|'U',upperregion, "upcase-region",
/*EU KCTLX|KCTRL|'V',findalternate, "find-alternate-file", */
KCTLX|KCTRL|'W',filewrite, "write-file",
KCTLX|KCTRL|'X',swapmark, "exchange-point-and-mark",
KCTLX|KCTRL|'Z',spawncli, "suspend-emacs",
/*MT KCTLX|ESC ???, "repeat-complex-command", */
/*U KCTLX|'$' ???, "set-selective-display", */
KCTLX|'(', ctlxlp, "start-kbd-macro",
KCTLX|')', ctlxrp, "end-kbd-macro",
/*DIX KCTLX|'+', ???, "add-global-abbrev", */
/*DIX KCTLX|'-', ???, "inverse-add-global-abbrev", */
/*MX KCTLX|'.', ???, "set-fill-prefix", */
/*HX KCTLX|'/', ???, "point-to-register", */
/*MT KCTLX|'0', ???, "delete-window", */
KCTLX|'1', onlywind, "delete-other-windows",
KCTLX|'2', splitwind, "split-window-vertically",
/*MX KCTLX|'4', ???, "ctl-x-4-prefix", */
/*DHX KCTLX|'5', ???, "split-window-horizontally", */
/*EX KCTLX|';', ???, "set-comment-column", */
/*HU KCTLX|'<', ???, "scroll-left", */
KCTLX|'=', showcpos, "what-cursor-position",
/*HU KCTLX|'>', ???, "scroll-right", */
/*MU KCTLX|'[', ???, "backward-page", */
/*MU KCTLX|']', ???, "forward-page", */
KCTLX|'^', enlargewind, "enlarge-window",
/*HX KCTLX|'`', ???, "next-error", */
/*MU KCTLX|'A', ???, "append-to-buffer", */
KCTLX|'B', usebuffer, "switch-to-buffer",
/*MX KCTLX|'D', ???, "dired", */
KCTLX|'E', ctlxe, "call-last-kbd-macro",
/*EU KCTLX|'F', ctlxe, "set-fill-column", */
/*HX KCTLX|'G', ???, "insert-register", */
/*EU KCTLX|'H', ???, "mark-whole-buffer", */
/*MU KCTLX|'I', ???, "insert-file", */
/*HX KCTLX|'J', ???, "register-to-point", */
KCTLX|'K', killbuffer, "kill-buffer",
/*MU KCTLX|'L', ???, "count-lines-page", */
/*HU KCTLX|'N', ???, "narrow-to-region", */
KCTLX|'O', nextwind, "other-window",
/*HU KCTLX|'P', ???, "narrow-to-page", */
/*MX KCTLX|'Q', ???, "kbd-macro-qry", */
/*HX KCTLX|'R', ???, "copy-rectangle-to-register", */
KCTLX|'S', savebuffs, "save-some-buffers",
/*HX KCTLX|'U', ???, "advertised-undo", */
/*HX KCTLX|'W', ???, "widen", */
/*HX KCTLX|'{', ???, "shrink-window-horizontally", */
/*HX KCTLX|'}', ???, "enlarge-window-horizontally", */
/*MT KCTLX|DEL, ???, "backward-kill-sentence," */
/*MU KMETA|KCTRL|'@',???, "mark-sexp", */
/*MU KMETA|KCTRL|'A',???, "beginning-of-defun", */
/*MU KMETA|KCTRL|'B',???, "backwards-sexp", */
/*MX KMETA|KCTRL|'C',???, "exit-recursive-edit", */
/*MU KMETA|KCTRL|'D',???, "down-list", */
/*MU KMETA|KCTRL|'E',???, "end-of-defun", */
/*MU KMETA|KCTRL|'F',???, "forward-sexp", */
/*MU KMETA|KCTRL|'H',???, "mark-defun", */
/*MU KMETA|KCTRL|'J',???, "indent-new-comment-line", */
/*MU KMETA|KCTRL|'K',???, "kill-sexp", */
/*MU KMETA|KCTRL|'N',???, "foward-list", */
/*EU KMETA|KCTRL|'O',???, "split-line", */
/*MU KMETA|KCTRL|'P',???, "backward-list", */
/*HX KMETA|KCTRL|'S',???, "isearch-forward-regexp", */
/*MU KMETA|KCTRL|'T',???, "transpose-sexps", */
/*MU KMETA|KCTRL|'U',???, "backward-up-list", */
KMETA|KCTRL|'V',scrollother, "scroll-other-window",
/*ET KMETA|KCTRL|'W',???, "append-next-kill", */
/*IX KMETA|ESC, ??? "eval-expression", */
/*IX KMETA|CTRL|'\', ??? "indent-region", */
/*MU KMETA|' ', ??? "just-one-space", */
/*HT KMETA|'!', ???, "shell-command", */
/*HU KMETA|'$', ???, "spell-word", */
KMETA|'%', queryrepl, "query-replace",
/*IX KMETA|'\'', ???, "abbrev-prefix-mark", */
/*TU KMETA|'(', ???, "insert-parenthesis", */
/*HU KMETA|')', ???, "move-past-close-and-reindent", */
/*HX KMETA|',', ???, "tags-loop-continue", */
/*DT KMETA|'-', ???, "negative-argument", */
KMETA|'>', gotoeob, "end-of-buffer",
/*MU KMETA|'=', ???, "count-lines-region", */
KMETA|'<', gotobob, "beginning-of-buffer",
/*TT KMETA|'@', ???, "mark-word", */
/*MU KMETA|'[', ???, "backward-paragraph", */
/*TT KMETA|'\\', ???, "delete-horizontal-space", */
/*MU KMETA|']', ???, "forward-paragraph", */
/*TT KMETA|'^', ???, "delete-indentation", */
/*MU KMETA|'A', ???, "backward-sentence", */
KMETA|'B', backword, "backward-word",
KMETA|'C', capword, "capitalize-word",
KMETA|'D', delfword, "kill-word",
/*MU KMETA|'E', ???, "forward-sentence", */
KMETA|'F', forwword, "forward-word",
/*HT KMETA|'G', ???, "fill-region", */
/*MU KMETA|'H', ???, "mark-paragraph", */
/*DMX KMETA|'I', ???, "tab-to-tab-stop", */
/*MU KMETA|'J', ???, "indent-new-comment-line", */
KMETA|'L', lowerword, "downcase-word",
/*EU KMETA|'M', ???, "back-to-indentation", */
/*HT KMETA|'Q', ???, "fill-paragraph", */
KMETA|'R', reposition, "move-to-window-line",
/*ET KMETA|'T', ???, "transpose-words", */
KMETA|'U', upperword, "upcase-word",
KMETA|'V', backpage, "scroll-down",
KMETA|'W', copyregion, "copy-region-as-kill",
KMETA|'X', extend, "execute-extended-command",
/*HDX KMETA|'Y', ???, "yank-pop", */
/*MU KMETA|'Z', ???, "zap-to-char", */
/*HT KMETA|'|', ???, "shell-command-on-region", */
KMETA|'~', notmodified, "not-modified",
KMETA|DEL, delbword, "backward-kill-word",
/*
** These are unbound functions, callable by name.
** They are GNU compatible (to various degrees).
*/
/* -1, ???, "append-next-kill", */
/* -1, ???, "apropos", */
-1, wallchart, "describe-bindings",
/*MT -1, ???, "digit-argument", */
-1, showversion, "emacs-version",
-1, bindtokey, "global-set-key",
-1, gotoline, "goto-line",
-1, quit, "kill-emacs",
-1, backsearch, "search-backward",
-1, forwsearch, "search-forward",
-1, selfinsert, "self-insert-command",
-1, filename, "set-visited-file-name",
/* These are duplicate names for GNU compatible functions,
** or incompatible commands I've left lying around for now.
** The old command names get used as args to keydup() in the
** various tty/xxx/ttykbd.c modules for function keys.
*/
-1, backchar, "back-char",
-1, backline, "back-line",
-1, backpage, "back-page",
-1, prevwind, "back-window",
-1, mvdnwind, "down-window",
-1, enlargewind, "enlarge-window",
-1, ctlxe, "execute-macro",
-1, forwchar, "forw-char",
-1, forwline, "forw-line",
-1, forwpage, "forw-page",
-1, nextwind, "forw-window",
-1, help, "help",
-1, selfinsert, "ins-self",
-1, killregion, "kill-region",
-1, searchagain, "search-again",
-1, setmark, "set-mark",
-1, shrinkwind, "shrink-window",
-1, mvupwind, "up-window",
/*MT incorrect behaviour */
};
#define NKEY (sizeof(key) / sizeof(key[0]))
/*
* Symbol table lookup.
* Return a pointer to the SYMBOL node, or NULL if
* the symbol is not found.
*/
SYMBOL *
symlookup(cp)
register char *cp;
{
register SYMBOL *sp;
sp = symbol[symhash(cp)];
while (sp != NULL) {
if (strcmp(cp, sp->s_name) == 0)
return (sp);
sp = sp->s_symp;
}
return (NULL);
}
/*
* Take a string, and compute the symbol table
* bucket number. This is done by adding all of the characters
* together, and taking the sum mod NSHASH. The string probably
* should not contain any GR characters; if it does the "*cp"
* may get a nagative number on some machines, and the "%"
* will return a negative number!
*/
symhash(cp)
register char *cp;
{
register int c;
register int n;
n = 0;
while ((c = *cp++) != 0)
n += c;
return (n % NSHASH);
}
/*
* Build initial keymap. The funny keys
* (commands, odd control characters) are mapped using
* a big table and calls to "keyadd". The printing characters
* are done with some do-it-yourself handwaving. The terminal
* specific keymap initialization code is called at the
* very end to finish up. All errors are fatal.
*/
keymapinit()
{
register SYMBOL *sp;
register KEY *kp;
register int i;
register int hash;
for (i=0; i<NKEYS; ++i)
binding[i] = NULL;
for (kp = &key[0]; kp < &key[NKEY]; ++kp)
keyadd(kp->k_key, kp->k_funcp, kp->k_name);
/* Multiple bindings of standard commands */
#ifdef DAVEB
keydup(KCTRL|'Z', "scroll-down");
#endif
keydup(KCTLX|KCTRL|'G', "keyboard-quit");
keydup(KMETA|KCTRL|'G', "keyboard-quit");
keydup(KMETA|' ', "set-mark-command");
/*
* Self insert should be in hash table already, bound to -1.
* Bind all printing chars without an explicit binding already.
*/
if ((sp=symlookup("self-insert-command")) == NULL)
abort();
binding[ KCTRL|'I' ] = sp;
for ( i = ' ' ; i < DEL ; ++i ) {
if (binding[i] != NULL)
continue;
binding[i] = sp;
++sp->s_nkey;
}
ttykeymapinit();
}
/*
* Create a new builtin function "name"
* with function "funcp". If the "new" is a real
* key, bind it as a side effect. All errors
* are fatal.
*/
keyadd(new, funcp, name)
int (*funcp)();
char *name;
{
register SYMBOL *sp;
register int hash;
if ((sp=(SYMBOL *)malloc(sizeof(SYMBOL))) == NULL)
abort();
hash = symhash(name);
sp->s_symp = symbol[hash];
symbol[hash] = sp;
sp->s_nkey = 0;
sp->s_name = name;
sp->s_funcp = funcp;
if (new >= 0) { /* Bind this key. */
if (binding[new] != NULL)
abort();
binding[new] = sp;
++sp->s_nkey;
}
}
/*
* Bind key "new" to the existing routine "name".
* If the routine doesn't exist, just give a warning.
* It's no error to rebind a key.
*/
keydup(new, name)
register int new;
char *name;
{
register SYMBOL *sp;
if ( (sp=symlookup(name))==NULL )
return;
if( new >= 0 )
binding[new] = sp;
++sp->s_nkey;
}